Dim prenom As String
Dim date_naissance As String
Dim date_embauche As String
Dim fonction As String
Dim service As String
Dim telephone As String
Dim adresse_mail As String


prenom = InputBox("Prnom du salari", "Ajout salari")
        Range("B2").Value = prenom
date_naissance = InputBox("Date de naissance du salari", "Ajout salari")
        Range("C2").Value = date_naissance
date_embauche = InputBox("Date d'embauche du salari", "Ajout salari")
        Range("D2").Value = date_embauche
service = InputBox("Service du salari", "Ajout salari")
        Range("E2").Value = service
fonction = InputBox("Fonction du salari", "Ajout salari")
        Range("F2").Value = fonction
telephone = InputBox("tlphone du salari", "Ajout salari")
        Range("G2").Value = telephone
adresse_mail = InputBox("Adresse mail du salari", "Ajout salari")
        Range("H2").Value = adresse_mail
